home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-2 / card_38490.txt < prev    next >
Text File  |  1990-08-07  |  6KB  |  284 lines
  1. -- card: 38490 from stack: in.0-2
  2. -- bmap block id: 54750
  3. -- flags: 0000
  4. -- background id: 27044
  5. -- name: business
  6. ----- HyperTalk script -----
  7. -- This handler performs the animation.
  8. on doAnimation
  9.   reset
  10.   screenToDo
  11.   zoomRect the rect of btn "THISRECT", the rect of btn "scenarioMask"
  12.   showScenario
  13.   wait 40
  14.   animatePeople
  15.   zoomRect the rect of btn "scenarioMask", the rect of btn "thisRect"
  16.   reset
  17.   show cd btn "See It Again"
  18. end doAnimation
  19.  
  20. -- This handler resets the animation.
  21. on reset
  22.   lock screen
  23.   show cd fld "mask2"
  24.   show btn "scenarioMask"
  25.   show btn "scenarioMask2"
  26.   hide btn "scissors"
  27.   hide cd btn "See It Again"
  28.   unlock screen with dissolve
  29. end reset
  30.  
  31. ----------------------------
  32. -- These are mini animations used by doAnimation.
  33. on screenToDo
  34.   repeat for 2
  35.     repeat with n = 1 to 4
  36.       set the icon of btn "thingshappen" to ("disturbance" & n)
  37.       wait 10
  38.     end repeat
  39.   end repeat
  40.   set the icon of btn "thingshappen" to 0
  41. end screenToDo
  42.  
  43. on showScenario
  44.   hide cd fld "mask2"
  45.   hide btn "scenarioMask2"
  46.   hide btn "scenarioMask"
  47. end showScenario
  48.  
  49. on animatePeople
  50.   lock screen
  51.   show btn "scenarioMask"
  52.   put "0" into cd fld "showFld"
  53.   unlock screen with dissolve slow
  54.   repeat with n = 0 to 8
  55.     put n into cd fld "showFld"
  56.     wait 20
  57.   end repeat
  58.   repeat with n = 5 to 8
  59.     put n into cd fld "showFld"
  60.     wait 20
  61.   end repeat
  62.   put "9" into cd fld "showFld"
  63.   wait 30
  64.   repeat for 5
  65.     put ":" into cd fld "showFld"
  66.     wait 5
  67.     put ";" into cd fld "showFld"
  68.     wait 5
  69.   end repeat
  70.   put "0" into cd fld "showFld"
  71.   lock screen
  72.   put empty into cd fld "showFld"
  73.   hide btn "scenarioMask"
  74.   show btn "scenarioMask2"
  75.   show cd fld "mask2"
  76.   unlock screen with dissolve slow
  77. end animatePeople
  78.  
  79. topMask: 170,80,226,92
  80. rightMask: 225,91,237,160
  81. bottomMask: 170,159,226,171
  82. left Mask:159,90,171,160
  83.  
  84.  
  85.  
  86.  
  87. -- part 2 (button)
  88. -- low flags: 00
  89. -- high flags: 0001
  90. -- rect: left=172 top=93 right=159 bottom=224
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: ScenarioMask
  99.  
  100.  
  101. -- part 20 (button)
  102. -- low flags: 00
  103. -- high flags: 0001
  104. -- rect: left=170 top=91 right=160 bottom=226
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 0 / 0
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: ScenarioMask2
  113.  
  114.  
  115. -- part 9 (button)
  116. -- low flags: 80
  117. -- high flags: 0000
  118. -- rect: left=228 top=132 right=171 bottom=263
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 28467 / 28467
  121. -- text alignment: 1
  122. -- font id: 0
  123. -- text size: 12
  124. -- style flags: 0
  125. -- line height: 16
  126. -- part name: mask2
  127.  
  128.  
  129. -- part 10 (button)
  130. -- low flags: 80
  131. -- high flags: 0000
  132. -- rect: left=258 top=132 right=171 bottom=293
  133. -- title width / last selected line: 0
  134. -- icon id / first selected line: 28467 / 28467
  135. -- text alignment: 1
  136. -- font id: 0
  137. -- text size: 12
  138. -- style flags: 0
  139. -- line height: 16
  140. -- part name: mask3
  141.  
  142.  
  143. -- part 11 (button)
  144. -- low flags: 80
  145. -- high flags: 0001
  146. -- rect: left=216 top=82 right=135 bottom=307
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 0 / 0
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: mask1
  155.  
  156.  
  157. -- part 12 (button)
  158. -- low flags: 80
  159. -- high flags: 8000
  160. -- rect: left=208 top=119 right=146 bottom=311
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 0 / 0
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: ___________
  169.  
  170.  
  171. -- part 13 (button)
  172. -- low flags: 80
  173. -- high flags: 0000
  174. -- rect: left=111 top=96 right=135 bottom=150
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 15248 / 15248
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: scissors
  183.  
  184.  
  185. -- part 14 (button)
  186. -- low flags: 00
  187. -- high flags: 0000
  188. -- rect: left=122 top=114 right=126 bottom=134
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 1
  192. -- font id: 0
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: thisRect
  197.  
  198.  
  199. -- part 16 (field)
  200. -- low flags: 01
  201. -- high flags: 0000
  202. -- rect: left=237 top=78 right=132 bottom=396
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 65535
  206. -- font id: 174
  207. -- text size: 14
  208. -- style flags: 256
  209. -- line height: 15
  210. -- part name: 
  211.  
  212.  
  213. -- part 17 (field)
  214. -- low flags: 01
  215. -- high flags: 0000
  216. -- rect: left=156 top=123 right=149 bottom=240
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 0
  220. -- font id: 3
  221. -- text size: 12
  222. -- style flags: 0
  223. -- line height: 16
  224. -- part name: mask2
  225.  
  226.  
  227. -- part 18 (field)
  228. -- low flags: 01
  229. -- high flags: 0000
  230. -- rect: left=171 top=89 right=154 bottom=226
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 0 / 0
  233. -- text alignment: 0
  234. -- font id: 214
  235. -- text size: 80
  236. -- style flags: 0
  237. -- line height: 80
  238. -- part name: showFld
  239.  
  240.  
  241. -- part 19 (button)
  242. -- low flags: 80
  243. -- high flags: A004
  244. -- rect: left=57 top=172 right=189 bottom=137
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 0 / 0
  247. -- text alignment: 1
  248. -- font id: 174
  249. -- text size: 12
  250. -- style flags: 0
  251. -- line height: 16
  252. -- part name: See It Again
  253. ----- HyperTalk script -----
  254. -- This handler resets the animation and shows it again.
  255. on mouseUp
  256.   set cursor to none
  257.   reset
  258.   unlock screen
  259.   doAnimation
  260. end mouseUp
  261.  
  262.  
  263.  
  264. -- part 21 (button)
  265. -- low flags: 00
  266. -- high flags: 0000
  267. -- rect: left=114 top=108 right=133 bottom=142
  268. -- title width / last selected line: 0
  269. -- icon id / first selected line: 0 / 0
  270. -- text alignment: 1
  271. -- font id: 0
  272. -- text size: 12
  273. -- style flags: 0
  274. -- line height: 16
  275. -- part name: thingsHappen
  276.  
  277.  
  278. -- part contents for card part 16
  279. ----- text -----
  280. HyperCard puts simulation & learning tools at your fingertips.
  281.  
  282. -- part contents for card part 17
  283. ----- text -----
  284. ___________